(split-window-vertically): Return the new window.

diff --git a/lisp/window.el b/lisp/window.el
index 840035a4af8bbc4aeed5026c9e2f4bf4088b3895..d9ad3a2e1a644ad918d43687ae440be1b55e49aa 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -90,7 +90,8 @@ new mode line."
          (if (< (window-start new-w) old-point)
              (progn
                (set-window-point new-w old-point)
-               (select-window new-w)))))))
+               (select-window new-w)))))
+    new-w))
 
 (defun split-window-horizontally (&optional arg)
   "Split current window into two windows side by side.